10 FORT=49152TO 49285:READD:POKET,D:CK=CK+D:NEXT
20 IF CK<> 19407THEN PRINT"ERROR":END
40 DATA 169,1,162,8,160,15,32,186,255,169,0,32,189,255,32,192,255,162
50 DATA1,32,201,255,162,0,169,77,32,210,255,169,45,32,210,255,169,87
60 DATA 32,210,255,138,32,210,255,169,5,32,210,255,169,1,32,210,255
70 DATA 189,90,192,32,210,255,138,72,32,204,255,162,1,32,201,255,104
80 DATA170,232,224,45,208,204,169,85,32,210,255,169,67,32,210,255,32
90 DATA 204,255,96,169,254,170,32,21,5,202,224,1,208,248,32,21,5,232
100 DATA 224,225,208,248,240,235,138,72,73,255,168,169,248,141,0,28
110 DATA 202,208,248,169,240,141,0,28,136,208,248,104,170,96